home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-2.dxr / Internal_23_botó augment temporitzador.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  643 b   |  26 lines

  1. on mouseDown
  2.   global nTempo
  3.   startTimer()
  4.   if nTempo = 600 then
  5.     set nTempo to 600
  6.   else
  7.     set nTempo to nTempo + 60
  8.     set the member of sprite 8 to member string(nTempo / 60) of castLib "Elementos graficos"
  9.     updateStage()
  10.   end if
  11.   repeat while the stillDown
  12.     if the timer > 30 then
  13.       if nTempo = 600 then
  14.         set nTempo to 600
  15.       else
  16.         set nTempo to nTempo + 60
  17.         set the member of sprite 8 to member string(nTempo / 60) of castLib "Elementos graficos"
  18.         updateStage()
  19.       end if
  20.     end if
  21.     set nDelay to the timer + 5
  22.     repeat while the timer < nDelay
  23.     end repeat
  24.   end repeat
  25. end
  26.